﻿Class Window1
  Private Sub PlayVideo(
      ByVal sender As Object,
      ByVal e As RoutedEventArgs)
    Video1.Source =
      New Uri(
        My.Computer.FileSystem.CurrentDirectory &
        "\VB2010EXPintro.wmv")
    Video1.Play()
  End Sub
End Class
